home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / CK1541.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  109 lines
  1. 1000 REM  VERSION 3.0 PERFORMANCE TEST
  2. 1010 REM FOR C-64 SINGLE 1541 DISK DRIVE
  3. 1020 REM  REVISED NOV.1989 TED BERNHARDI
  4. 1030 POKE 53280,0:POKE 53281,0:REM
  5. 1040 REM
  6. 1050 OPEN 1,8,15:OPEN 15,8,15:REM
  7. 1051 REM (null)
  8. 1052 REM (null)
  9. 1060 LT=35
  10. 1070 LT$=STR$(LT)
  11. 1080 NT=30
  12. 1090 PRINT"[147][159][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  13. 1100 PRINT"      1541 DRIVE PERFORMANCE TEST"
  14. 1101 REM (null)
  15. 1102 REM (null)
  16. 1110 PRINT"[159][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  17. 1130 PRINT"    INSERT SCRATCH DISK IN DRIVE"
  18. 1140 PRINT"  (ANY EXISTING FILES WILL BE ERASED)"
  19. 1170 PRINT"[158]       PRESS  RETURN [146] WHEN READY"
  20. 1200 FOR I=0 TO 50:GET A$:NEXT
  21. 1201 REM (null)
  22. 1202 REM (null)
  23. 1210 GET A$:IF A$<>CHR$(13) THEN 1210
  24. 1240 TI$="000000"
  25. 1250 TT=18
  26. 1260 PRINT#1,"N0:TEST DISK,00"
  27. 1270 C1$="[147]           FORMATING DISK [146]"+CHR$(13)
  28. 1280 C2$="[159]    PLEASE WAIT ABOUT 80 SECONDS"
  29. 1290 CC$=C1$+C2$:GOSUB 1840
  30. 1300 IF TI<NTTHEN1370
  31. 1301 REM (null)
  32. 1302 REM (null)
  33. 1310 PRINT"SYSTEM IS NOT RESPONDING
  34. 1320 [153]" CORRECTLY TO COMMANDS"
  35. 1340 [141] 1880
  36. 1370 [153]"SYSDRIVE PASSED MECHANICAL TEST!"
  37. 1390 TT[178]21
  38. 1400 [159] 2,8,2,"0:TEST FILE,S,W"
  39. 1401 [143] [204]
  40. 1402 [143] [204]
  41. 1410 CC$[178]"  OPEN WRITE FILE"       :[141] 1840
  42. 1420 CH[178]2:CC$[178]"  WRITE DATA"       :[141] 1930
  43. 1430 CC$[178]"  CLOSE WRITE FILE"       :[141] 1840
  44. 1440 [159] 2,8,2,"0:TEST FILE,S,R"
  45. 1450 CC$[178]"  OPEN READ FILE"        :[141] 1840
  46. 1460 CH[178]2:[141] 1990
  47. 1470 [152]1,"S0:TEST FILE"
  48. 1480 CC$[178]"  SCRATCH FILE ":TT[178]1    :[141] 1840
  49. 1500 [143] [204]
  50. 1501 [143] [204]
  51. 1502 [143] [204]
  52. 1510 TT[178]21
  53. 1520 [159] 4,8,4,"#"
  54. 1530 NN%[178](1[170][187](TI)[172]254[170]NN%)[175]255:[152]1,"B-P";4;NN%
  55. 1540 NN$[178]"":[129] I[178]1 [164] 255:NN$[178]NN$[170][199](I):[130]
  56. 1550 [152] 4,NN$;
  57. 1560 [152] 1,"U2:";4;0;LT;0
  58. 1570 CC$[178]"  WRITE TRACK"[170]LT$:[141] 1840
  59. 1580 [152]1,"U2:";4;0;1;0
  60. 1590 CC$[178]"  WRITE TRACK 1"         :[141] 1840
  61. 1600 [152]1,"U1:";4;0;LT;0
  62. 1601 [143] [204]
  63. 1602 [143] [204]
  64. 1610 CC$[178]"  READ TRACK"[170]LT$        :[141] 1840
  65. 1620 [152]1,"U1:";4;0;1;0
  66. 1630 CC$[178]"  READ TRACK 1"          :[141] 1840
  67. 1640 [160] 4
  68. 1670 [153]"SYS      
  69. 21577  HAS PASSED";
  70. 1680 [153]" PERFORMANCE TEST!"
  71. 1690 [153]"  REMOVE DISK BEFORE";
  72. 1700 [153]" TURNING POWER OFF."
  73. 1701 [143] [204]
  74. 1702 [143] [204]
  75. 1720 [128]
  76. 1750 [153]"SYS    CONTINUE (Y/N)?";
  77. 1760 [129] I[178]0 [164] 50:[161] A$:[130]
  78. 1770 [161] A$:[139] A$[178]"" [167] 1770
  79. 1780 [153] A$""
  80. 1790 [139] A$[178]"N" [167] [128]
  81. 1800 [139] A$[178]"Y" [167] [142]
  82. 1801 [143] [204]
  83. 1802 [143] [204]
  84. 1810 [137] 1760
  85. 1820 :
  86. 1840 [153] CC$
  87. 1850 [132] 1,EN,EM$,ET,ES
  88. 1860 [153][163]12)""EN;EM$;ET;ES;""
  89. 1870 [139] EN[179]2 [167] [142]
  90. 1880 [153]"   UNIT IS FAILING";
  91. 1890 [153]" PERFORMANCE TEST"
  92. 1900 TM$[178]TI$:[141] 1750:TI$[178]TM$:[142]
  93. 1901 [143] [204]
  94. 1902 [143] [204]
  95. 1930 [153]"  WRITING DATA"
  96. 1940 [129] I[178]1000 [164] 2000:[152]CH,I:[130]
  97. 1950 [141]    
  98. 36096 [168][160] CH:[142]
  99. 1990 [153]"  READING DATA"
  100. 2000 [161]A$
  101. 2001 [143] [204]
  102. 2002 [143] [204]
  103. 2010 [129] I[178]1000 [164] 2000
  104. 2020 [132] CH,J
  105. 2030 [139] J[179][177]I [167] [153]"     READ ERROR:WAIT":[141] 1850
  106. 2040 [130]
  107. 2050 [141] 1850
  108. 2060 [160] CH:[142]
  109.